home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / units / ansi.tst < prev    next >
Text File  |  1992-07-04  |  2KB  |  55 lines
  1. PROGRAM TestAvAnsiUnit;    { Remember to install ANSI.SYS, or NO FUN !    }
  2.  
  3.  USES Ansi;
  4.  
  5.  VAR
  6.    T,U:LONGINT;
  7.  
  8.  PROCEDURE Initier;
  9.   BEGIN
  10.     Mode80x50;             { This Procedure is unstable, it is written in }
  11.                            { inline code, and it has benn changed a bit   }
  12.                            { to function. I'll try to fix this bug, but   }
  13.                            { it may take some time...                     }
  14.     UseIntense;            { Use Intense Backgroundcolors instead of      }
  15.                            { blinking colors.                             }
  16.     SetBorder(Magenta);    { Nice little procedure don't you think?       }
  17.     SetColor(Yellow,Yellow); { Set Yellow text color and yellow background}
  18.     ClearScreen;           { It's here the Mode80x50 bug appears from     }
  19.                            { time to time. (Only half the screen is       }
  20.                            { cleared).                                    }
  21.   END;
  22.                            { I think that the BUG disappears after you    }
  23.                            { hav used the lower half of the screen. What  }
  24.                            { is wrong is that the Mode80x50 procedure     }
  25.                            { doesen't tell the system that it has changed }
  26.                            { to 80 x 50 display.  But hey! Maybe you      }
  27.                            { don't need this procedure ?                  }
  28.  
  29.  BEGIN
  30.    Initier;
  31.    TextColor(LightBlue);
  32.    GotoPos(25,24);
  33.    WRITE('ANSI UNIT FOR PC-DOS AND TP6.0');
  34.    TextColor(Brown);
  35.    GotoPos(1,1);
  36.    WRITELN('It didn''t take more than one day (12h) to develop this unit...');
  37.    WRITELN('The Idea came from all the BBS''s around, they have some good');
  38.    WRITELN('games in ANSI graphics don''t they?');
  39.    GotoPos(10,40);
  40.    WRITE('This product is made ONLY of ANSI Routines and Assembler routines!');
  41.    GotoPos(10,41);
  42.    WRITE('I have in no way cheated, using UNIT''s as CRT or DOS.');
  43.    GotoPos(10,42);
  44.    WRITE('I have been tempted though......');
  45.    TextColor(Black);
  46.    GotoPos(30,50);
  47.    WRITE('Well, press RETURN then!');
  48.    TextColor(LightRed);
  49.    GotoPos(5,10);
  50.    WRITE('ONLY Mode80x50, UseIntense, UseBlink and SetBorder is in Assembler!');
  51.    SetColor(White,LightRed);
  52.    GotoPos(10,30);
  53.    WRITE('Give me some help, and I''ll try to make a unit for BBS ANSI too.');
  54.    READLN;
  55.  END.